PageMac
Home
   dot Projects
   dot Pics and Images
   dot WREK
D++
   dot About / FAQ
   dot Download
   dot Code Library
   dot Documentation
   dot VB6 Runtime Files
About

  Source Code - dpp/source/speed test.dpp

Download link (right click, save as)



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
screenput "Speed Test!"; screen; screen;
doevents;

newvar i;
newvar a;
newvar t = dpp.tick;

for i = 0 to 10000;
    a = mid("hello" & " " & "world", len(mid("aa",1,1)), len(left("hello",2)));
next i;

screenput "Done! Time = ";
screenput dpp.tick - t;

This code is Copyright (C) 2000-2012 PageMac Programming. Reproduction of this code must adhere to the GNU General Public License.